[]
      19425-74 

[]
1=
2=
3=
4=


[]
Icon=_8240-89.gif

[]
Icon=_8240-89.gif

[]
Icon=_8240-89-.gif

[]
Icon=_8240-89-.gif

[-LISP]
(defun $main$ ( / )
  (insert-dyn-block-vc (strcat $DrawDBPath$ "_19425-74.dwg") "_19425-74" $Scale$ "" "$$") 
)


[-LISP]
(defun $main$ ( / h b t1 s p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 ee)
  (begin_vc++)
  (setq h (* $h$ $Scale$ 10))
  (setq t1 (* $t$ $Scale$ 10))
  (setq b (* $b$ $Scale$ 10))
  (setq s (* $s$ $Scale$ 10))
  
  ;;;(if (< $s$ 0.7) (setq s (* 0.7 $Scale$ 10)))
  ;;;(if (< $t$ 0.7) (setq t1 (* 0.7 $Scale$ 10)))
 
  (setq p1 (getpoint "\n : "))
  (setvar "OSMODE" 0)
  (command "_.pline" p1 "_w" 0 0
  (setq p2 (rc_vc++ p1 0 h))
  (setq p3 (rc_vc++ p2 b 0))
  (setq p4 (rc_vc++ p3 (* -1 t1) (* -1 t1)))
  (setq p5 (rc_vc++ p2 (+ s s) (* -1 t1)))
  (setq p6 (rc_vc++ p5 (* -1 s) (* -1 s)))
  (setq p7 (rc_vc++ p1 s (+ t1 s)))
  (setq p8 (rc_vc++ p7 s (* -1 s)))
  (setq p9 (rc_vc++ p1 (- b t1) t1))
  (setq p10 (rc_vc++ p1 b 0)) "_c")
  (setq ee (entlast))
  (princ "\n : ")
  (command "_.rotate" ee "" p1 pause)
  (end_vc++)
  (princ)
)


[-LISP]
(defun $main$ ( / h tt ptr1 ptr2 pangle angp90 angm90 pl p1 p)
  (begin_vc++)
  (setq h (* $h$ $Scale$ 10))
  (setq tt (* $t$ $Scale$ 10))
  (initget 1)
  (setq ptr1 (getpoint "\n : "))
  (initget 1)
  (setq ptr2 (getpoint ptr1 "\n : "))
  (setq pangle (angle ptr1 ptr2))
  (setq angp90 (+ pangle (/ pi 2)))
  (setq angm90 (- pangle (/ pi 2)))
  (setq pl (distance ptr1 ptr2))
  (setvar "OSMODE" 0)
  (command "_.pline"
  (setq p1 (polar ptr1 angm90 (/ h 2)))
   "_w" 0 0
  (setq p (polar p1 pangle pl))
  (setq p (polar p angp90 h))
  (polar p (+ pangle pi) pl)
   "_c")
  (setq p (polar p1 (+ pangle (/ pi 2)) tt))
  (command "_.pline" p (polar p pangle pl) "")
  (setq p1 (polar ptr1 angp90 (/ h 2)))
  (setq p (polar p1 (- pangle (/ pi 2)) tt))
  (command "_.pline" p (polar p pangle pl) "")
  (end_vc++)
  (princ)
)

[-LISP]
(defun $main$ ( / b s ptr1 ptr2 pangle angp90 angm90 pl p1 p)
  (begin_vc++)
  (setq b (* $b$ $Scale$ 10))
  (setq s (* $s$ $Scale$ 10))
  (initget 1)
  (setq ptr1 (getpoint "\n : "))
  (initget 1)
  (setq ptr2 (getpoint ptr1 "\n : "))
  (setq pangle (angle ptr1 ptr2))
  (setq angp90 (+ pangle (/ pi 2)))
  (setq angm90 (- pangle (/ pi 2)))
  (setq pl (distance ptr1 ptr2))
  (setvar "OSMODE" 0)
  (command "_.pline"
  (setq p1 (polar ptr1 angm90 (/ b 2)))
   "_w" 0 0
  (setq p (polar p1 pangle pl))
  (setq p (polar p angp90 b))
  (polar p (+ pangle pi) pl)
   "_c")
  (setq p (polar ptr1 (+ pangle (/ pi 2)) (- (/ b 2) s)))
  (command "_.pline" p (polar p pangle pl) "")
  (end_vc++)
  (princ)
)


[]
	h,	b,	s,	t,	r1,	r2,	A,2	P,/	Iy,4		Wy,3	iy,	Sy,3	Iz,4	Wz,3	iz,	yo,
18	18.000	6.800	0.700	1.050	1.050	0.530	25.700	 20.20	1272.000	141.000	7.040	83.500	98.500	20.100	1.960	1.880
18	18.000	7.000	0.900	1.050	1.050	0.530	29.300	23.00	1370.000	152.000	6.840	91.600	111.000	21.300	1.950	1.840
20	20.000	7.300	0.700	1.100	1.100	0.550	28.800	22.60	1780.000	178.000	7.860	104.700	128.000	24.200	2.120	2.010
30	30.000	8.700	0.950	1.350	1.350	0.680	49.600	39.10	6500.000	433.000	11.400	259.700	289.000	44.000	2.410	2.130
